﻿Imports kplusEntity.KPLUS.Entity
Imports kplusData.KPLUS.Data

Namespace KPLUS.Data
    Public Class DUltimus
        Public Function fObtenerDatosUser(ByVal strUsuario As String, ByRef strNombreCompleto As String) As Boolean
            Dim objUsuario As New Ultimus.OC.User
            Dim objOC As New Ultimus.OC.OrgChart
            Dim BOOL As Boolean = objOC.FindUser(strUsuario, "", "", objUsuario)
            If BOOL Then
                strNombreCompleto = objUsuario.strUserFullName
            End If
            Return BOOL
        End Function
    End Class
End Namespace

